home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 6 / CDL_N6.iso / mac / CD Loisirs N°6 / PaperPlanes / Paper Planes / Planes / 00134.ls < prev    next >
Encoding:
Text File  |  1994-08-25  |  370 b   |  18 lines

  1. on mouseDown
  2.   puppetSprite(the clickOn, 1)
  3.   set normCast to the number of cast "Cub"
  4.   stickyButtonDown(the clickOn, normCast, normCast + 1)
  5. end
  6.  
  7. on mouseUp
  8.   global ReturnPage
  9.   set test to buttonUp(the clickOn)
  10.   puppetSprite(the clickOn, 0)
  11.   if test then
  12.     cursor(4)
  13.     unLoadCast(ReturnPage & "S1")
  14.     unLoadCast(ReturnPage & "S2")
  15.     go("Cub")
  16.   end if
  17. end
  18.